| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=short), | public | :: | count | 
                 number of intakes  | 
        |||
| type(Intake), | public, | ALLOCATABLE | :: | elem(:) | 
TYPE Intakes INTEGER (KIND = short) :: count !!number of intakes TYPE (Intake), ALLOCATABLE :: elem (:) END TYPE Intakes